POV-Ray : Newsgroups : povray.general : Couple of questions. : Re: Couple of questions. Server Time
10 Aug 2024 11:26:15 EDT (-0400)
  Re: Couple of questions.  
From: Nieminen Juha
Date: 1 Jan 2000 12:34:27
Message: <386e3aa3@news.povray.org>
Paul Vanukoff <van### [at] primenetcom> wrote:
: What is the quickest/easiest way to evenly distribute 'N' number of points
: on the surface of a sphere using POV?

  This depends on how accurate it has to be. Here is one way:

#declare Spread = .1;
#declare mintheta = 0;
#declare maxtheta = pi;

camera { location <-4,1,-6>*.7 look_at 0 angle 35 }
light_source { <50,100,-200> 1 }

#declare dtheta = atan2(Spread,1);

#declare R=seed(0);
#declare theta=mintheta;
#while(theta<maxtheta)
  #if(theta=0)
    #declare dphi=2*pi;
  #else
    #declare dphi=dtheta/sin(theta);
  #end
  #declare minphi= -pi + dphi*rand(R)*.5;
  #declare maxphi= pi - dphi/2 + (minphi+pi);
  #declare phi=minphi;
  #while(phi<maxphi)
    sphere
    { z,.05
      rotate x*degrees(theta)
      rotate z*degrees(phi)
      pigment { rgb x } finish { specular .5 }
    }
    #declare phi=phi+dphi;
  #end
  #declare theta=theta+dtheta;
#end


-- 
main(i,_){for(_?--i,main(i+2,"FhhQHFIJD|FQTITFN]zRFHhhTBFHhhTBFysdB"[i]
):5;i&&_>1;printf("%s",_-70?_&1?"[]":" ":(_=0,"\n")),_/=2);} /*- Warp -*/


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.